https://datos.gob.ar/dataset/sspm-produccion-consumo-gas-natural/archivo/sspm_364.3

library(lubridate)

Attaching package: 㤼㸱lubridate㤼㸲

The following objects are masked from 㤼㸱package:base㤼㸲:

    date, intersect, setdiff, union
tipo_usuario <- c( "residencial", "comercial" , "entes_oficiales", "industria", "centrales_electricas", "sdb", "gnc" )
plot1 = data %>% 
  filter(lubridate::year(indice_tiempo) >=2011) %>% 
  select(indice_tiempo, tipo_usuario ) %>% 
  gather(key = "tipo_usuario", value= "valor", 2:ncol(.)) %>%
  mutate(n_dias = days_in_month(indice_tiempo)) %>% 
  ggplot(aes(indice_tiempo, valor/n_dias, color = tipo_usuario))+
  geom_line()+
  theme(legend.position = "bottom")
plotly::ggplotly(plot1)
LS0tDQp0aXRsZTogIkRlbWFuZGEgZGUgZ2FzIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KaHR0cHM6Ly9kYXRvcy5nb2IuYXIvZGF0YXNldC9zc3BtLXByb2R1Y2Npb24tY29uc3Vtby1nYXMtbmF0dXJhbC9hcmNoaXZvL3NzcG1fMzY0LjMNCmBgYHtyfQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KGx1YnJpZGF0ZSkNCg0KZGF0YSA9IHJlYWRfY3N2KCIuLi9kYXRhL2VuYXJnYXMvZXhwb3J0YWNpb25lcy1hY3RpdmlkYWQtc2FsZG9jb21lcmNpYWwtcmFuZ29zLWV4cG9ydGFjaW9uLWVtcHJlc2EtZXhwb3J0YWRvcmEtbWVuc3VhbC5jc3YiKQ0KdGFpbChkYXRhKQ0KYGBgDQoNCmBgYHtyfQ0KdGlwb191c3VhcmlvIDwtIGMoICJyZXNpZGVuY2lhbCIsICJjb21lcmNpYWwiICwgImVudGVzX29maWNpYWxlcyIsICJpbmR1c3RyaWEiLCAiY2VudHJhbGVzX2VsZWN0cmljYXMiLCAic2RiIiwgImduYyIgKQ0KcGxvdDEgPSBkYXRhICU+JSANCiAgZmlsdGVyKGx1YnJpZGF0ZTo6eWVhcihpbmRpY2VfdGllbXBvKSA+PTIwMTEpICU+JSANCiAgc2VsZWN0KGluZGljZV90aWVtcG8sIHRpcG9fdXN1YXJpbyApICU+JSANCiAgZ2F0aGVyKGtleSA9ICJ0aXBvX3VzdWFyaW8iLCB2YWx1ZT0gInZhbG9yIiwgMjpuY29sKC4pKSAlPiUNCiAgbXV0YXRlKG5fZGlhcyA9IGRheXNfaW5fbW9udGgoaW5kaWNlX3RpZW1wbykpICU+JSANCiAgZ2dwbG90KGFlcyhpbmRpY2VfdGllbXBvLCB2YWxvci9uX2RpYXMsIGNvbG9yID0gdGlwb191c3VhcmlvKSkrDQogIGdlb21fbGluZSgpKw0KICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikNCnBsb3RseTo6Z2dwbG90bHkocGxvdDEpDQpgYGANCg0K